home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 88 / 088.d81 / star boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  986b  |  25 lines
  1. 5 dv=peek(186):ifdv<8thendv=8
  2. 100 poke53281,.:poke53280,.:print"[147][156]"chr$(14)
  3. 110 poke214,7:print:print"  ";
  4. 120 fori=1to9:print"[223][146][223]";:next
  5. 130 fori=1to9:print"[146][169][169]";:next:print
  6. 140 print"  [223][146][223][223][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][156][169][146][169][169]"
  7. 150 print"  [223][146][223][223][150]                              [156][169][146][169][169]"
  8. 160 print"  [223][146][223][223][150]    [211] [212] [193] [210]  [205] [193] [211] [212] [197] [210] [211]    [156][169][146][169][169]"
  9. 170 print"  [223][146][223][223][150] [193]n [197]ntertainment [212]rivia [199]ame [156][169][146][169][169]"
  10. 180 print"  [223][146][223][223][150]        [194]y [193]nthony [210]ose       [156][169][146][169][169]"
  11. 190 print"  [169][146][169][169][150]   [208]ublished on [204]oadstar #88  [156][223][146][223][223]"
  12. 200 print"  [169][146][169][169][150] [211]ubscriptions 1-800-831-2694 [156][223][146][223][223]"
  13. 210 print"  [169][146][169][169][150]  [195]opyright ([195])1991 [211]oftdisk  [156][223][146][223][223]"
  14. 220 print"  [169][146][169][169][150]                              [156][223][146][223][223]"
  15. 230 print"  [169][146][169][169][129][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][156][223][146][223][223]":print"  ";
  16. 240 fori=1to9:print"[169][146][169]";:next
  17. 250 fori=1to9:print"[146][223][223]";:next:print
  18. 260 printtab(11)"[158][204]  [207]  [193]  [196]  [201]  [206]  [199]"
  19. 300 sys57812"masters.font",dv,0:poke780,0:poke781,0:poke782,240:sys65493
  20. 400 a$="star masters":q$=chr$(34)
  21. 410 printchr$(19);"[144]load";q$;a$;q$;","dv
  22. 420 print:print:print:print:print"run"
  23. 430 poke631,19:poke632,13:poke633,13:poke198,3:end
  24. 10000 open15,8,15,"s0:star boot":close15:save"star boot",8:end
  25.